home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / trapit.zip / CNTRPRS.FR_ / CNTRPRS.FR
Text File  |  1996-11-10  |  7KB  |  219 lines
  1. VERSION 2.00
  2. Begin Form frmTrapItCentrl 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Double
  6.    Caption         =   "Unanticipated Error!"
  7.    ClientHeight    =   3705
  8.    ClientLeft      =   3690
  9.    ClientTop       =   4710
  10.    ClientWidth     =   5445
  11.    ControlBox      =   0   'False
  12.    FontBold        =   0   'False
  13.    FontItalic      =   0   'False
  14.    FontName        =   "MS Sans Serif"
  15.    FontSize        =   8.25
  16.    FontStrikethru  =   0   'False
  17.    FontUnderline   =   0   'False
  18.    Height          =   4110
  19.    Left            =   3630
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   3705
  24.    ScaleWidth      =   5445
  25.    Top             =   4365
  26.    Width           =   5565
  27.    Begin CommandButton cmdPrint 
  28.       Caption         =   "&Print"
  29.       Enabled         =   0   'False
  30.       FontBold        =   0   'False
  31.       FontItalic      =   0   'False
  32.       FontName        =   "MS Sans Serif"
  33.       FontSize        =   8.25
  34.       FontStrikethru  =   0   'False
  35.       FontUnderline   =   0   'False
  36.       Height          =   330
  37.       Left            =   120
  38.       TabIndex        =   6
  39.       Top             =   3240
  40.       Width           =   1200
  41.    End
  42.    Begin CommandButton cmdResumeNext 
  43.       Caption         =   "&Continue"
  44.       FontBold        =   0   'False
  45.       FontItalic      =   0   'False
  46.       FontName        =   "MS Sans Serif"
  47.       FontSize        =   8.25
  48.       FontStrikethru  =   0   'False
  49.       FontUnderline   =   0   'False
  50.       Height          =   330
  51.       Left            =   1440
  52.       TabIndex        =   5
  53.       Top             =   3240
  54.       Width           =   1200
  55.    End
  56.    Begin CommandButton cmdResume 
  57.       Caption         =   "&Retry"
  58.       FontBold        =   0   'False
  59.       FontItalic      =   0   'False
  60.       FontName        =   "MS Sans Serif"
  61.       FontSize        =   8.25
  62.       FontStrikethru  =   0   'False
  63.       FontUnderline   =   0   'False
  64.       Height          =   330
  65.       Left            =   2760
  66.       TabIndex        =   4
  67.       Top             =   3240
  68.       Width           =   1200
  69.    End
  70.    Begin CommandButton cmdEnd 
  71.       Caption         =   "&Terminate"
  72.       FontBold        =   0   'False
  73.       FontItalic      =   0   'False
  74.       FontName        =   "MS Sans Serif"
  75.       FontSize        =   8.25
  76.       FontStrikethru  =   0   'False
  77.       FontUnderline   =   0   'False
  78.       Height          =   330
  79.       Left            =   4080
  80.       TabIndex        =   3
  81.       Top             =   3240
  82.       Width           =   1200
  83.    End
  84.    Begin SSFrame Frame3D3 
  85.       Caption         =   "Error message"
  86.       FontBold        =   0   'False
  87.       FontItalic      =   0   'False
  88.       FontName        =   "MS Sans Serif"
  89.       FontSize        =   8.25
  90.       FontStrikethru  =   0   'False
  91.       FontUnderline   =   0   'False
  92.       Height          =   972
  93.       Left            =   120
  94.       TabIndex        =   2
  95.       Top             =   2160
  96.       Width           =   5172
  97.       Begin TextBox txtError 
  98.          BackColor       =   &H00C0C0C0&
  99.          FontBold        =   0   'False
  100.          FontItalic      =   0   'False
  101.          FontName        =   "MS Sans Serif"
  102.          FontSize        =   8.25
  103.          FontStrikethru  =   0   'False
  104.          FontUnderline   =   0   'False
  105.          Height          =   612
  106.          Left            =   120
  107.          MultiLine       =   -1  'True
  108.          ScrollBars      =   2  'Vertical
  109.          TabIndex        =   9
  110.          Top             =   240
  111.          Width           =   4932
  112.       End
  113.    End
  114.    Begin SSFrame Frame3D2 
  115.       Caption         =   "Error code"
  116.       FontBold        =   0   'False
  117.       FontItalic      =   0   'False
  118.       FontName        =   "MS Sans Serif"
  119.       FontSize        =   8.25
  120.       FontStrikethru  =   0   'False
  121.       FontUnderline   =   0   'False
  122.       Height          =   732
  123.       Left            =   120
  124.       TabIndex        =   1
  125.       Top             =   1200
  126.       Width           =   5172
  127.       Begin TextBox txtErr 
  128.          BackColor       =   &H00C0C0C0&
  129.          FontBold        =   0   'False
  130.          FontItalic      =   0   'False
  131.          FontName        =   "MS Sans Serif"
  132.          FontSize        =   8.25
  133.          FontStrikethru  =   0   'False
  134.          FontUnderline   =   0   'False
  135.          Height          =   372
  136.          Left            =   120
  137.          MultiLine       =   -1  'True
  138.          ScrollBars      =   2  'Vertical
  139.          TabIndex        =   8
  140.          Top             =   240
  141.          Width           =   4932
  142.       End
  143.    End
  144.    Begin SSFrame Frame3D1 
  145.       Caption         =   "Module with error"
  146.       FontBold        =   0   'False
  147.       FontItalic      =   0   'False
  148.       FontName        =   "MS Sans Serif"
  149.       FontSize        =   8.25
  150.       FontStrikethru  =   0   'False
  151.       FontUnderline   =   0   'False
  152.       Height          =   972
  153.       Left            =   120
  154.       TabIndex        =   0
  155.       Top             =   120
  156.       Width           =   5172
  157.       Begin TextBox txtProc 
  158.          BackColor       =   &H00C0C0C0&
  159.          FontBold        =   0   'False
  160.          FontItalic      =   0   'False
  161.          FontName        =   "MS Sans Serif"
  162.          FontSize        =   8.25
  163.          FontStrikethru  =   0   'False
  164.          FontUnderline   =   0   'False
  165.          Height          =   612
  166.          Left            =   120
  167.          MultiLine       =   -1  'True
  168.          ScrollBars      =   2  'Vertical
  169.          TabIndex        =   7
  170.          Top             =   240
  171.          Width           =   4932
  172.       End
  173.    End
  174.    Begin Label lblReturn 
  175.       Caption         =   "lblReturn"
  176.       Height          =   372
  177.       Left            =   4440
  178.       TabIndex        =   10
  179.       Top             =   1920
  180.       Visible         =   0   'False
  181.       Width           =   972
  182.    End
  183. End
  184. ' TODO: modify and test this form in accordance with your requirements
  185. '       currently this form will be displayed when an error occur.
  186. '       if user will press END the application will terminate
  187. '       if user will press Resume the statement with the error will be executed again
  188. '       if user will press ResumeNext the statement following the statement with an error will be excured
  189.  
  190. Option Explicit
  191.  
  192. Sub cmdEnd_Click ()
  193.    lblReturn = 0
  194.    End
  195. End Sub
  196.  
  197. Sub cmdPrint_Click ()
  198. '   Printer.Print txtProc
  199. '   Printer.Print txtErr
  200. '   Printer.Print txtError
  201. '   Printer.EndDoc
  202. '   PrintForm
  203. End Sub
  204.  
  205. Sub cmdResume_Click ()
  206.    lblReturn = 1
  207.    Me.Hide
  208. End Sub
  209.  
  210. Sub cmdResumeNext_Click ()
  211.    lblReturn = 2
  212.    Me.Hide
  213. End Sub
  214.  
  215. Sub Form_Load ()
  216.    CenterForm Me
  217. End Sub
  218.  
  219.